home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
drop173c.zip
/
RSB5DROP.MRG
< prev
Wrap
Text File
|
1992-02-08
|
2KB
|
54 lines
* ------------[ BLED merge (c) Ken Goosens ]----------------
* Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
* RBBSSUB5.BAS: Dated 9-1-1991 Size 100075 bytes
* -----[ Merge file created 02-08-1992 - R. Molinelli ]-----
* REPLACING old line(s) by new
63100 ' $SUBTITLE: 'DoorReturn - Subroutine to process requests from a door'
' $PAGE
'
' NAME -- DoorReturn
'
' INPUTS -- PARAMETER MEANING
' DOUTx.DEF File of requests
'
' OUTPUTS -- ZUserSecLevel Revised Security Level
'
' PURPOSE -- To give Doors a stable way to make requests
' to the host.
'
SUB DoorReturn STATIC
IF NOT ZExitToDoors THEN _
EXIT SUB
CALL OpenUser (ZHighestUserRecord)
FIELD 5, 128 AS ZUserRecord$
FIELD 5,31 AS ZUserName$, _
15 AS ZPswd$, _
2 AS ZSecLevel$, _
14 AS ZUserOption$, _
24 AS ZCityState$, _
2 AS MachineType$, _
1 AS ZBankTime$,_
4 AS ZTodayDl$, _
4 AS ZTodayBytes$, _
4 AS ZDlBytes$, _
4 AS ZULBytes$, _
14 AS ZLastDateTimeOn$, _
3 AS ZListNewDate$, _
2 AS ZUserDnlds$, _
2 AS ZUserUplds$, _
2 AS ZElapsedTime$
ZSubParm = 6
CALL FileLock
GET 5,ZUserFileIndex
ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) ' RM020801
CALL SetSysOp
CALL SetUserPref
CALL SetUserUpDn
ZGlobalsSet = ZFalse
CALL SetGlobalUpDn
ZElapsedTime = CVI(MID$(ZUserRecord$,127,2))
ZFileName$ = "DOUT" + ZNodeID$ + ".DEF"
CALL FindIt (ZFileName$)
IF NOT ZOK THEN _
GOTO 63197